home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / furelise.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-09-15  |  640 b   |  20 lines
  1. 10  REM ALBUMBLATT "FUR ELISE" BY LUDWIG VAN BEETHOVEN
  2. 20  REM ARRANGED BY ALBERT WANG, 9/5/84
  3. 30  PLAY "MB L8 T150"
  4. 40  A$="O4ED#ED#E<B>DC<A4"
  5. 50  B$="O2A>CEAB4O2G#"
  6. 60  PLAY A$+B$+">EG#B>C4O2A>E"
  7. 70  PLAY A$+B$+">E>C<BA2"
  8. 80  PLAY A$+B$+">EG#B>C4O2A>E"
  9. 90  PLAY A$+B$+">E>C<BA2"
  10. 100  PLAY "O2A>B>CDE4P8<G>FED4P8"
  11. 110  PLAY "<F>EDC4P8<E>DC<B"
  12. 120  PLAY "MSEMNE>E<E>EE>ET130<D#ET110D#ET90D#ET150"
  13. 130  PLAY A$+B$+">EG#B>C4O2A>E"
  14. 140  PLAY A$+B$+">E>C<BA4"
  15. 150  PLAY "O2A>B>CDE4P8<G>FED4P8"
  16. 160  PLAY "<F>EDC4P8<E>DC<B"
  17. 170  PLAY "MSEMNE>E<E>EE>ET140<D#ET130D#ET120D#ET150"
  18. 180  PLAY A$+B$+">EG#B>C4O2A>E"
  19. 190  PLAY A$+B$+">E>C<BA4"
  20.